Файл: TestBotanica.txt
Дата: 06.01.2011
1: * Интерпретатор тестов
2: * Программа КОНЦЕПТ, 21.09.2010, www.gendoc.ru
3:
4: * Инициация теста
5: Инициализация_базы_фактов_теста
6: присвоить BAL 0 ОШИБОЧНЫЕ_ВОПРОСЫ {} НОМЕР_ТЕСТА 3
7: печать "Протокол тестирования. Сегодня [$Сегодня]." ''
8: факт взять номер_факта (факт сопоставитьСПервым $результат "r;t;[НОМЕР_ТЕСТА];[?];[?]" )
9: список сопоставить _ [номер_факта] "[?];[?];[?];[?КОЛИЧЕСТВО_ВОПРОСОВ];[?ОПИСАНИЕ_ТЕСТА]"
10: Сообщение "Тест N [НОМЕР_ТЕСТА]. [ОПИСАНИЕ_ТЕСТА] [КОЛИЧЕСТВО_ВОПРОСОВ] вопросов."
11:
12: * Вопросы теста
13: для ТЕКУЩИЙ_ВОПРОС (список сгенерить $результат 1 [КОЛИЧЕСТВО_ВОПРОСОВ] )
14: Задать_вопрос
15: следующий
16:
17: * Определение результатов теста
18: печать '' 'Результат теста:'
19: Сообщение "Вы набрали [BAL] баллов."
20:
21: факт сопоставить n "r;r;[НОМЕР_ТЕСТА];BAL;[?];[?];[?]"
22: для [n]
23: факт взять номер_факта [$объектЦикла]
24: список сопоставить _ [номер_факта] "r;r;[НОМЕР_ТЕСТА];BAL;[?min];[?max];[?результат]"
25: если [BAL] >= [min]
26: если [BAL] <= [max]
27: Сообщение [результат]
28: конец
29: конец
30: следующий
31:
32: если [ОШИБОЧНЫЕ_ВОПРОСЫ]
33: список упорядочитьЧисла ОШИБОЧНЫЕ_ВОПРОСЫ [ОШИБОЧНЫЕ_ВОПРОСЫ]
34: Сообщение "Вы сделали ошибки в следующих вопросах [ОШИБОЧНЫЕ_ВОПРОСЫ]."
35: конец
36:
37: ****** ФУНКЦИИ ******
38:
39: функция Сообщение текст
40: показать сообщение [текст]
41: >[текст]
42: возврат
43:
44: функция Задать_вопрос
45: факт сопоставитьМножество ВОПРОС "r;q;[НОМЕР_ТЕСТА];[ТЕКУЩИЙ_ВОПРОС];[?Result]"
46: если [ВОПРОС]
47: иначе
48: Сообщение "Вопрос [ТЕКУЩИЙ_ВОПРОС] не найден."
49: конец
50: список голова ВОПРОС [ВОПРОС]
51: строка сцепить ВОПРОС "[ТЕКУЩИЙ_ВОПРОС]/[КОЛИЧЕСТВО_ВОПРОСОВ]) " [ВОПРОС]
52: >
53: >[ВОПРОС]
54:
55: факт сопоставитьМножество ВАРИАНТЫ_ОТВЕТОВ "r;v;[НОМЕР_ТЕСТА];[ТЕКУЩИЙ_ВОПРОС];[?Result];[?]"
56:
57: для [ВАРИАНТЫ_ОТВЕТОВ]
58: > [$номерИтерации]) [$объектЦикла]
59: следующий
60:
61: если [ВАРИАНТЫ_ОТВЕТОВ]
62: ввести меню1 ОТВЕТ [ВОПРОС] [ВАРИАНТЫ_ОТВЕТОВ]
63: >Ваш ответ: [ОТВЕТ]
64:
65: факт сопоставить n "r;v;[НОМЕР_ТЕСТА];[ТЕКУЩИЙ_ВОПРОС];[ОТВЕТ];[?]"
66: если [n] != {}
67: для [n]
68: факт взять f [$объектЦикла]
69: список взять ФОРМУЛА [f] 6
70: если [ФОРМУЛА]
71: список взять e1 [ФОРМУЛА] 1
72: список взять e2 [ФОРМУЛА] 2
73: строка сцепить ФОРМУЛА "вычислить + [e1] " '[' [e1] ']' " [e2]"
74: выполнить [ФОРМУЛА]
75: иначе
76: множество или ОШИБОЧНЫЕ_ВОПРОСЫ [ОШИБОЧНЫЕ_ВОПРОСЫ] [ТЕКУЩИЙ_ВОПРОС]
77: конец
78: следующий
79: конец
80:
81: иначе
82: Сообщение "Для вопроса [ТЕКУЩИЙ_ВОПРОС] отсутствуют варианты ответов."
83: конец
84: возврат
85:
86:
87: функция Инициализация_базы_фактов_теста
88: *данные загрузить "[$текущийКаталог]Tests.txt"
89:
90: * Схемы фактов:
91: *s;t;номер_теста;количество_вопросов;описание_теста
92: *s;q;номер_теста;номер_вопроса;текст_вопроса
93: *s;v;номер_теста;номер_вопроса;текст_варианта_ответа;переменная;число_баллов
94: *s;r;номер_теста;переменная;нижняя_граница;верхняя_граница;текст
95:
96: факт добавить \
97: 'r;t;3;12;Общее знакомство с цветковыми растениями.' \
98: 'r;q;3;1;Биология - наука, изучающая:' \
99: 'r;v;3;1;живую и неживую природу;' \
100: 'r;v;3;1;живую природу;{BAL;1}' \
101: 'r;v;3;1;сезонные изменения в живой природе;' \
102: 'r;v;3;1;жизнь растений;' \
103: 'r;q;3;2;Строение растений изучает наука:' \
104: 'r;v;3;2;экология;' \
105: 'r;v;3;2;фенология;' \
106: 'r;v;3;2;ботаника;{BAL;1}' \
107: 'r;v;3;2;биология;' \
108: 'r;q;3;3;Цветковые растения относятся к:' \
109: 'r;v;3;3;царству грибов;' \
110: 'r;v;3;3;царству растений;{BAL;1}' \
111: 'r;v;3;3;доядерным живым организмам;' \
112: 'r;v;3;3;ядерным живым организмам;{BAL;1}' \
113: 'r;q;3;4;Организм растения состоит из органов:' \
114: 'r;v;3;4;корня и стебеля;' \
115: 'r;v;3;4;цветка и стебеля;' \
116: 'r;v;3;4;корня и побега;{BAL;1}' \
117: 'r;v;3;4;цветка и плодов;' \
118: 'r;q;3;5;Побегом называют:' \
119: 'r;v;3;5;часть стебеля;' \
120: 'r;v;3;5;почки и листья;' \
121: 'r;v;3;5;стебель с листьями и почками;{BAL;1}' \
122: 'r;v;3;5;цветок;' \
123: 'r;q;3;6;Цветок - это:' \
124: 'r;v;3;6;видоизмененный побег;{BAL;1}' \
125: 'r;v;3;6;яркий венчик;' \
126: 'r;v;3;6;околоцветник;' \
127: 'r;v;3;6;часть стебеля;' \
128: 'r;q;3;7;Главные части цветка:' \
129: 'r;v;3;7;лепестки и чашелистики;' \
130: 'r;v;3;7;пестик и тычинки;{BAL;1}' \
131: 'r;v;3;7;цветоножка и цветоложе;' \
132: 'r;v;3;7;столбик и рыльце;' \
133: 'r;q;3;8;Плод образуется из:' \
134: 'r;v;3;8;тычинки;' \
135: 'r;v;3;8;пестика;' \
136: 'r;v;3;8;завязи пестика;{BAL;1}' \
137: 'r;v;3;8;рыльца пестика;' \
138: 'r;q;3;9;Плодом нельзя назвать:' \
139: 'r;v;3;9;боб;' \
140: 'r;v;3;9;клубень картофеля;{BAL;1}' \
141: 'r;v;3;9;ягоду;' \
142: 'r;v;3;9;стручок;' \
143: 'r;q;3;10;Семя имеет:' \
144: 'r;v;3;10;только запас питательных веществ;' \
145: 'r;v;3;10;только зародыш;' \
146: 'r;v;3;10;зародыш с запасом питательных веществ;{BAL;1}' \
147: 'r;v;3;10;зародышевый корешок, стебелек и почечку с листочком;' \
148: 'r;q;3;11;Плоды и семена, имеющие пушистые волоски, распространяются:' \
149: 'r;v;3;11;водой;' \
150: 'r;v;3;11;животными;' \
151: 'r;v;3;11;ветром;{BAL;1}' \
152: 'r;v;3;11;саморазбрасыванием;' \
153: 'r;q;3;12;Травы отличаются от деревьев и кустарников тем, что имеют:' \
154: 'r;v;3;12;ствол и ветви;' \
155: 'r;v;3;12;несколько стволиков;' \
156: 'r;v;3;12;зеленые листья;' \
157: 'r;v;3;12;зеленые сочные стебли;{BAL;1}' \
158: 'r;r;3;BAL;0;8;ТЕСТ НЕ СДАН' \
159: 'r;r;3;BAL;9;12;ТЕСТ СДАН'
160: возврат
161: